home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / akce / mediamonkey / MediaMonkey_2.5.5.999.exe / {app} / Scripts / SwapArtistTitle.vbs < prev   
Encoding:
Text File  |  2005-05-01  |  672 b   |  26 lines
  1. ' A simple script that swaps the content of Title and Artist fields of selected tracks
  2.  
  3. Sub SwapArtistTitle
  4.   ' Define variables
  5.   Dim list, itm, i, tmp
  6.  
  7.   ' Get list of selected tracks from MediaMonkey
  8.   Set list = SDB.CurrentSongList 
  9.  
  10.   ' Process all selected tracks
  11.   For i=0 To list.count-1
  12.     Set itm = list.Item(i)
  13.  
  14.     ' Swap the fields
  15.     tmp = itm.Title
  16.     itm.Title = itm.ArtistName
  17.     If itm.AlbumArtistName = itm.ArtistName Then     ' Modify Album Artist as well if is the same as Artist
  18.       itm.AlbumArtistName = tmp
  19.     End If
  20.     itm.ArtistName = tmp
  21.   Next
  22.  
  23.   ' Write all back to DB and update tags
  24.   list.UpdateAll
  25. End Sub
  26.